home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapset.plp < prev    next >
Text File  |  1993-11-30  |  23KB  |  694 lines
  1. /************************************************************************
  2. *    ユーザー設定                            *
  3. ************************************************************************/
  4. /*    ユーザー設定メニュー    */
  5. %USERSET{
  6.     loop({
  7.     SNDMSG({erande_f.snd});
  8.     footnote({処理を選択して下さい});
  9.     select({処理を選択して下さい},
  10.         99999,{SETFILE1:={一時設定};im({No})},
  11.         {  通信に必要な項目の設定  },{SETNET;im({Yes})},
  12.         {  各種ディレクトリの設定  },{SETDIR;im({Yes})},
  13.         { 通信メニュー初期値の設定 },{SETMENU;im({Yes})},
  14.         {       その他の設定       },{SETHOKA;im({Yes})},
  15.         {      元の設定に戻す      },{CANCEL;im({Yes})},
  16.         {   設定をファイルに保存   },{FSAVE;im({Yes})},
  17.         {  ファイルから設定を読込  },{FLOAD;im({Yes})},
  18.         {    設定を保存して終了    },{writeSET;im({No})},
  19.         { 保存しない(一時的な変更) },{SETFILE1:={一時設定};im({No})});
  20.     });
  21. };
  22.  
  23. /*    通信に必要な項目の設定    */
  24. %SETNET{
  25.     var id[8];    id:=    ID;
  26.     var pass[8];    pass:=    PASS;
  27.     var ap[20];    ap:=    AP;
  28.     var ap2[20];    ap2:=    AP2;
  29.     var ap3[20];    ap3:=    AP3;
  30.     var tel[1];    tel:=    TEL;
  31.     var modem[40];    modem:=    MODEM;
  32.     var save[12];    save:=    SAVE;
  33.     var save2[5];    save2:=    SAVE2;
  34.     var list[2];    list:=    LIST;
  35.  
  36.     loop({
  37.     %Tel    @case(tel={T},    {Yes},{im({2})},,{im({1})});
  38.     %Modem    {case(modem,{},{im({未設定})},,{head(@tail(modem,{/}),{_})})};
  39.     %Save    {case    (save,
  40.             {WHOLE},    {im({全体で一つ})},
  41.             {BOARD},    {im({ボード別})},
  42.             {JUMPCODE},    {im({ジャンプコード別})},,
  43.                     {im({未設定})})};
  44.     %Save2    {case    (save2,
  45.             {MONTH},    {im({月に１ファイル})},
  46.             {EVERY},    {im({アクセスごと})},
  47.             {DAY},        {im({日に１ファイル})},,
  48.                     {im({未設定})})};
  49.     SNDMSG({nyuryo_f.snd});
  50.     footnote({通信に必要な項目を設定して下さい});
  51.     %set    @plane(    {c通信に必要な項目を設定して下さい\n}|
  52.             {tＩＤ                   /12345678\n}|
  53.             {tパスワード             /12345678\n}|
  54.             {c　何も入力しないとログイン時に入力することが}|
  55.             {出来ます\n}|
  56.             {t1200bpsのAPの電話番号  /12345678901234567890\n}|
  57.             {t2400bpsのAPの電話番号  /12345678901234567890\n}|
  58.             {tPC-VAN+のAPの電話番号  /12345678901234567890\n}|
  59.             {s  電話番号一覧         / 1200bps / 2400bps }|
  60.                         {/ PC-VAN+ \n}|
  61.             {r電話回線の種類         /ダイアル  /プッシュホン \n}|
  62.             {cモデムの機種           }|@Modem|{\n}|
  63.             {s                       / モデム一覧 \n}|
  64.             {cログの保存の仕方       }|@Save|{ で }|
  65.                         @Save2|{\n}|
  66.             {s                       /  設定変更  \n}|
  67.             {t各種ﾘｽﾄ取得時の画面数  /12\n}|
  68.             {s/ 設定 / 取消 \n},
  69.             id,pass,ap2,ap,ap3,Tel,list);
  70.     id:=    @head(@getline(set,1,1),{\n});
  71.     pass:=    @head(@getline(set,2,1),{\n});
  72.     ap:=    @head(@getline(set,4,1),{\n});
  73.     ap2:=    @head(@getline(set,3,1),{\n});
  74.     ap3:=    @head(@getline(set,5,1),{\n});
  75.     %sel3    @head(@getline(set,6,1),{\n});
  76.     case    (@head(@getline(set,7,1),{\n})==1,
  77.         {Yes},    {tel:={P}},,
  78.             {tel:={T}});
  79.     list:=    @head(@getline(set,10,1),{\n});
  80.     %sel    @head(@getline(set,8,1),{\n});
  81.     %sel2    @head(@getline(set,9,1),{\n});
  82.     %ok    @head(@getline(set,11,1),{\n});
  83.     case    (sel==1,{Yes},    {SETMODEM});
  84.     case    (sel2==1,{Yes},    {SETLOG});
  85.     case    (sel3<>{ 0},{Yes},{#PVAPAP.PLP});
  86.     case    (ok,
  87.         { 1},    {ID:=    @head(@getline(set,1,1),{\n});
  88.             PASS:=    @head(@getline(set,2,1),{\n});
  89.             AP:=    @head(@getline(set,4,1),{\n});
  90.             AP2:=    @head(@getline(set,3,1),{\n});
  91.             AP3:=    @head(@getline(set,5,1),{\n});
  92.             MODEM:=    modem;
  93.             SAVE:=    save;
  94.             SAVE2:= save2;
  95.             case    (@head(@getline(set,7,1),{\n})==1,
  96.                 {Yes},    {TEL:={P}},,
  97.                     {TEL:={T}});
  98.             LIST:=    @head(@getline(set,10,1),{\n})},
  99.         { 2},    {im({No})},,
  100.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0}&&sel3={ 0},
  101.                 {Yes},    {im({No})},    /* 右ｸﾘｯｸで終了 */
  102.                 {No},    {im({Yes})})});
  103.     });
  104. };
  105.  
  106. /*    ログの保存の仕方の設定    */
  107. %SETLOG{
  108.     %Save    {case    (save,
  109.             {WHOLE},    {im({全体で一つ})},
  110.             {BOARD},    {im({ボード別})},
  111.             {JUMPCODE},    {im({ジャンプコード別})},,
  112.                     {im({未設定})})};
  113.     %Save2    {case    (save2,
  114.             {MONTH},    {im({月に１ファイル})},
  115.             {EVERY},    {im({アクセスごと})},
  116.             {DAY},        {im({日に１ファイル})},,
  117.                     {im({未設定})})};
  118.     SNDMSG({erande_f.snd});
  119.     footnote({ログの保存の仕方を選択して下さい});
  120.     select(    {ログの保存の仕方を選択して下さい  現在は }|@Save|{ です},
  121.         99999,,
  122.         {    全体で一つ    },{save:={WHOLE}},
  123.         { ジャンプコード別 },{save:={JUMPCODE}},
  124.         {     ボード別     },{save:={BOARD}},
  125.         {    変更しない    },);
  126.     SNDMSG({erande_f.snd});
  127.     footnote({ログの保存の仕方を選択して下さい});
  128.     select(    {ログの保存の仕方を選択して下さい  現在は }|@Save2|{ です},
  129.         99999,,
  130.         {   アクセスごと   },{save2:={EVERY}},
  131.         {  日に１ファイル  },{save2:={DAY}},
  132.         {  月に１ファイル  },{save2:={MONTH}},
  133.         {    変更しない    },);
  134. };
  135.  
  136. /*    通信メニュー初期値の設定    */
  137. %SETMENU{
  138.     %Updown    @case(UPDOWN={No},{Yes},{im({2})},,{im({1})});
  139.     %Billchk@case(BILLCHK={No},{Yes},{im({2})},,{im({1})});
  140.     %Preser    @case(PRESER={No},{Yes},{im({2})},,{im({1})});
  141.     %Acceap    @case(ACCEAP,    {1200},    {im({1})},
  142.                 {2400},    {im({2})},
  143.                 {PC-VAN+},{im({3})},,{im({2})});
  144.     %Redial    @case    (REDIAL,
  145.             {5},    {im({1})},
  146.             {10},    {im({2})},
  147.             {30},    {im({3})},
  148.             {9999},    {im({4})},,{im({4})});
  149.     %Calami    @case(CALAMI,    {PVAP},{im({2})},
  150.                 {MOPT},{im({3})},
  151.                 {POFF},{im({4})},,{im({1})});
  152.     SNDMSG({erande_f.snd});
  153.     footnote({通信メニューの初期値を設定して下さい});
  154.     %set    @plane(
  155.         {c通信メニューの初期値を設定して下さい\n}|
  156.         {rアップ・ダウンロード処理 /する /しない   \n}|
  157.         {r課金情報の確認           /する /しない   \n}|
  158.         {rログの保存               /する /しない   \n}|
  159.         {rアクセスするＡＰ         /1200bps  /2400bps  /PC-VAN+\n}|
  160.         {rリダイアル回数           /５ /１０ /３０ /無限\n}|
  161.         {r通信終了時 /PVAP継続 /PVAP終了 /MOPT終了 /電源切断\n}|
  162.         {s/ 設定 / 取消 \n},
  163.             Updown,Billchk,Preser,Acceap,Redial,Calami);
  164.     %ok    @head(@getline(set,7,1),{\n});
  165.     case    (ok==1,
  166.         {Yes},    {case    (@head(@getline(set,1,1),{\n})==1,
  167.                 {Yes},    {UPDOWN:={Yes}},,
  168.                     {UPDOWN:={No}});
  169.             case    (@head(@getline(set,2,1),{\n})==1,
  170.                 {Yes},    {BILLCHK:={Yes}},,
  171.                     {BILLCHK:={No}});
  172.             case    (@head(@getline(set,3,1),{\n})==1,
  173.                 {Yes},    {PRESER:={Yes}},,
  174.                     {PRESER:={No}});
  175.             ACCEAP:=@case    (@head(@getline(set,4,1),{\n}),
  176.                     { 1},{im({1200})},
  177.                     { 2},{im({2400})},
  178.                     { 3},{im({PC-VAN+})});
  179.             REDIAL:=@case    (@head(@getline(set,5,1),{\n}),
  180.                     { 1},{im({5})},
  181.                     { 2},{im({10})},
  182.                     { 3},{im({30})},
  183.                     { 4},{im({9999})});
  184.             CALAMI:=@case    (@head(@getline(set,6,1),{\n}),
  185.                     { 1},{im({CONT})},
  186.                     { 2},{im({PVAP})},
  187.                     { 3},{im({MOPT})},
  188.                     { 4},{im({POFF})})},
  189.         {No},    {im({No})});
  190. };
  191.  
  192. /*    ディレクトリの設定    */
  193. %selDIR    {
  194.     [MSG]
  195.     footnote(MSG|{まで移動して右クリックして下さい});
  196.     SNDMSG({erande_f.snd});
  197.     filesel;
  198.     im(@getcdir);
  199. };
  200.  
  201. /*    各種ディレクトリの設定    */
  202. %SETDIR{
  203.     var logpath[64];    logpath:=LOGPATH;
  204.     var temppath[64];    temppath:=TEMPPATH;
  205.     var dir2[64];        dir2:=DIR2;
  206.     var titlepath[64];    titlepath:=TITLEPATH;
  207.  
  208.     loop({
  209.     SNDMSG({nyuryo_f.snd});
  210.     footnote({ディレクトリの設定をして下さい});
  211.     %set    @plane(    {cディレクトリの設定をして下さい\n}|
  212.             {cログを保存するディレクトリ\n}|
  213.             {s  絶対に設定して下さい！                        }|
  214.                 {/ 検索 \n}|
  215.             {t/\n}|
  216.             {cテンポラリファイルを置くディレクトリ\n}|
  217.             {s  絶対に設定して下さい！                        }|
  218.                 {/ 検索 \n}|
  219.             {t/\n}|
  220.             {cTXF・QV・LHA・ISH・DIETを置いているディレクトリ\n}|
  221.             {s  設定しないとパスの通ったディレクトリになります}|
  222.                 {/ 検索 \n}|
  223.             {t/\n}|
  224.             {c未読タイトルのリストを置くディレクトリ\n}|
  225.             {s  他のディレクトリと同じ場所にはしないで下さい  }|
  226.                 {/ 検索 \n}|
  227.             {t/\n}|
  228.             {c　ルートディレクトリ以外は最後の｢\｣は不要です\n}|
  229.             {s/ 設定 / 取消 \n},
  230.             logpath,temppath,dir2,titlepath);
  231.     %sel    @head(@getline(set,1,1),{\n});
  232.     logpath:=@head(@getline(set,2,1),{\n});
  233.     %sel2    @head(@getline(set,3,1),{\n});
  234.     temppath:=@head(@getline(set,4,1),{\n});
  235.     %sel3    @head(@getline(set,5,1),{\n});
  236.     dir2:=    @head(@getline(set,6,1),{\n});
  237.     %sel4    @head(@getline(set,7,1),{\n});
  238.     titlepath:=@head(@getline(set,8,1),{\n});
  239.     %ok    @head(@getline(set,9,1),{\n});
  240.     case    (sel==1,{Yes},
  241.             {logpath:=@selDIR({ログを保存するディレクトリ})});
  242.     case    (sel2==1,{Yes},
  243.             {temppath:=@selDIR({テンポラリファイルを}|
  244.                     {置くディレクトリ})});
  245.     case    (sel3==1,{Yes},
  246.             {dir2:=@selDIR({フリーウェアを置くディレクトリ})});
  247.     case    (sel4==1,{Yes},
  248.             {titlepath:=@selDIR({未読タイトルを置くディレクトリ})});
  249.     case    (ok,
  250.         { 1},    {LOGPATH:=    @head(@getline(set,2,1),{\n});
  251.             case    (@nochar(LOGPATH),
  252.                 {3},{LOGPATH:=@getchar(LOGPATH,{1},{2})});
  253.             mkdir2(LOGPATH);
  254.             TEMPPATH:=    @head(@getline(set,4,1),{\n});
  255.             case    (@nochar(TEMPPATH),
  256.                 {3},{TEMPPATH:=@getchar(TEMPPATH,{1},{2})});
  257.             mkdir2(TEMPPATH);
  258.             DIR2:=        @head(@getline(set,6,1),{\n});
  259.             case    (@nochar(DIR2),
  260.                 {3},{DIR2:=@getchar(DIR2,{1},{2})});
  261.             TITLEPATH:=    @head(@getline(set,8,1),{\n});
  262.             case    (@nochar(TITLEPATH),
  263.                 {3},{TITLEPATH:=@getchar(TITLEPATH,{1},{2})});
  264.             mkdir2(TITLEPATH)},
  265.         { 2},    {im({No})},,
  266.             {case    (ok={ 0}&&sel={ 0}&&sel2={ 0}
  267.                     &&sel3={ 0}&&sel4={ 0},
  268.                 {Yes},    {im({No})},
  269.                 {No},    {im({Yes})})});
  270.     });
  271. };
  272.  
  273. /*    その他の設定    */
  274. %SETHOKA{
  275.     loop({
  276.     SNDMSG({erande_f.snd});
  277.     footnote({処理を選択して下さい});
  278.     select(    {処理を選択して下さい},99999,{im({No})},
  279.         {         背景色設定         },{setCOLOR;im({Yes})},
  280.         { 入力時のプロンプト方法設定 },{setPRMPT;im({Yes})},
  281.         { 使用ファイルマネージャ設定 },{setFMGR;im({Yes})},
  282.         {           終  了           },{im({No})});
  283.     });
  284. };
  285.  
  286. /*    ファイルマネージャの選択    */
  287. %setFMGR{
  288.     %mgr    @case(FMGR,{},{im({標準ﾌｧｲﾙﾏﾈｰｼﾞｬ})},,{im(FMGR)});
  289.     SNDMSG({erande_f.snd});
  290.     footnote({ﾌｧｲﾙﾏﾈｰｼﾞｬを選択して下さい  現在は }|mgr|{ です});
  291.     FMGR:=
  292.     @loop    ({select({ファイルマネージャを選択して下さい},
  293.             99999,{im(FMGR)},
  294.             {  標準ファイルマネージャ  },{im({})},
  295.             { 任意のファイルマネージャ },
  296.             {
  297.             footnote({ファイルマネージャ用のオート}|
  298.                 {パイロットを指定して下さい});
  299.             %fmgr    @filesel();
  300.             case(fmgr,{},{im({})},
  301.                 ,{case(@nochar(@getcdir),
  302.                     {3},{im(@getcdir|fmgr)},
  303.                     ,{im(@getcdir|{\}|fmgr)})});
  304.             });
  305.         });
  306. };
  307.  
  308. /*    入力プロンプトの設定    */
  309. %setPRMPT{
  310.     SNDMSG({erande_f.snd});
  311.     footnote({入力時のプロンプト方法を指定して下さい});
  312.     select    ({入力時のプロンプト方法を指定して下さい},
  313.         99999,,
  314.         {    音声メッセージ    },
  315.             {VBELL:={No};setSNDDIR;visibell(VBELL)},
  316.         {       ブザー音       },
  317.             {SOUND:={};VBELL:={No};visibell(VBELL)},
  318.         {    画面フラッシュ    },
  319.             {SOUND:={};VBELL:={Yes};visibell(VBELL)},
  320.         { 指定のｓｎｄファイル },
  321.             {SOUND:={};VBELL:={No};setBELFIL;visibell(VBELL)});
  322. };
  323.  
  324. /*    ｂｅｌｌｆｉｌｅの設定    */
  325. %setBELFIL{
  326.     SNDMSG({erande_f.snd});
  327.     footnote({ベルの代わりに鳴らす音声ファイルを指定して下さい});
  328.     %bell    @filesel({SND});
  329.     %bell2    {case    (@nochar(@getcdir),{3},{im(@getcdir|bell)},
  330.                     ,{im(@getcdir|{\}|bell)})};
  331.     case    (bell,{},{BELFIL:={}},,{BELFIL:=@bell2});
  332.     case    (@tail(BELFIL,{.})={snd}||@tail(BELFIL,{.})={SND},
  333.         {Yes},{bellfile(BELFIL)});
  334. };
  335.  
  336. /*    音声メッセージファイルの設定    */
  337. %setSNDDIR{
  338.     SNDMSG({nyuryo_f.snd});
  339.     footnote({音声メッセージファイルを格納するディレクトリを}|
  340.         {指定して下さい});
  341.     SOUND:=    @input(    {音声メッセージファイルを置く}|
  342.             {ディレクトリを指定して下さい\n}|
  343.             {  ルートディレクトリ以外は最後の｢\｣は不要です\n}|
  344.             { （例）A:\MOPTERM\SOUND},,SOUND);
  345.     case    (@nochar(SOUND),
  346.         {3},{SOUND:=@getchar(SOUND,{1},{2})});
  347.     mkdir2    (SOUND);
  348.     case    (@filechk(SOUND|{erande_f.snd})&&
  349.          @filechk(SOUND|{nyuryo_f.snd})&&
  350.          @filechk(SOUND|{kaknin_f.snd})&&
  351.          @filechk(SOUND|{okasi_f.snd})&&
  352.          @filechk(SOUND|{owata_f.snd})&&
  353.          @filechk(SOUND|{jikan_f.snd}),
  354.         {No},{copySND(SOUND|{\})});
  355. };
  356.  
  357. /*    音声メッセージファイルのコピー    */
  358. %copySND{
  359.     [snddir]        /* 最後は｢\｣であること */
  360.     display    (BELL);
  361.     footnote({システムＣＤをセットして下さい});
  362.     select    ({システムＣＤをセットして下さい},
  363.         99999,,
  364.         { ＯＫ },
  365.         {case    (@setcdir({q:\fj\msg}),    /* v1.1    */
  366.             {Yes},
  367.             {footnote({erande_f.sndをコピーします});
  368.             command({copy order\erande_f.snd }|snddir|{*.*});
  369.             footnote({nyuryo_f.sndをコピーします});
  370.             command({copy order\nyuryo_f.snd }|snddir|{*.*});
  371.             footnote({kaknin_f.sndをコピーします});
  372.             command({copy order\kaknin_f.snd }|snddir|{*.*});
  373.             footnote({owata_f.sndをコピーします});
  374.             command({copy info\owata_f.snd }|snddir|{*.*});
  375.             footnote({okasi_f.sndをコピーします});
  376.             command({copy alarm\okasi_f.snd }|snddir|{*.*})},
  377.             {No},
  378.             {case    (@setcdir({q:\fj2\msg}),    /* v2.1 */
  379.                 {Yes},
  380.                 {footnote({erande_f.sndをコピーします});
  381.                 command({copy order\erande_f.snd }|
  382.                     snddir|{*.*});
  383.                 footnote({nyuryo_f.sndをコピーします});
  384.                 command({copy order\nyuryo_f.snd }|
  385.                     snddir|{*.*});
  386.                 footnote({kaknin_f.sndをコピーします});
  387.                 command({copy order\kaknin_f.snd }|
  388.                     snddir|{*.*});
  389.                 footnote({owata_f.sndをコピーします});
  390.                 command({copy info\owata_f.snd }|snddir|{*.*});
  391.                 footnote({okasi_f.sndをコピーします});
  392.                 command({copy warning\okasi_f.snd }|
  393.                     snddir|{*.*})})});
  394.         footnote({});setcdir(DIR1);},
  395.         { ＮＯ },);
  396. };
  397.  
  398. /*    背景色の設定をする    */
  399. %setCOLOR{
  400.     case(r,{},{r:=0});
  401.     case(g,{},{g:=0});
  402.     case(b,{},{b:=0});
  403.     SNDMSG({erande_f.snd});
  404.     footnote({背景色の変更をします});
  405.     loop({
  406.     select({背景色の変更をします}|
  407.         {  現在は r=}|r|{ g=}|g|{ b=}|b|{ です},
  408.         99999,{im({No})},
  409.         {赤↑},{case(r<251,{Yes},{r:=r+5;backclr(r,g,b)});im({Yes})},
  410.         {赤↓},{case(r>  4,{Yes},{r:=r-5;backclr(r,g,b)});im({Yes})},
  411.         {緑↑},{case(g<251,{Yes},{g:=g+5;backclr(r,g,b)});im({Yes})},
  412.         {緑↓},{case(g>  4,{Yes},{g:=g-5;backclr(r,g,b)});im({Yes})},
  413.         {青↑},{case(b<251,{Yes},{b:=b+5;backclr(r,g,b)});im({Yes})},
  414.         {青↓},{case(b>  4,{Yes},{b:=b-5;backclr(r,g,b)});im({Yes})},
  415.         {終了},{im({No})});
  416.     });
  417. };
  418.  
  419. /*    モデムの設定    */
  420. %setAT{
  421.     SNDMSG({erande_f.snd});
  422.     footnote({どういうタイプのモデムですか？});
  423.     var TYPE[10];
  424.     TYPE:=@select({どういうタイプのモデムですか？},
  425.         99999,{im({1200n})},
  426.         { １２００                    ＭＮＰなし },{im({1200n})},
  427.         { ２４００                    ＭＮＰなし },{im({2400n})},
  428.         { ２４００(端末速度2400)      ＭＮＰあり },{im({2400m})},
  429.         { ２４００(端末速度4800)      ＭＮＰあり },{im({4800m})},
  430.         { 2400以上(端末速度9600以上)  ＭＮＰあり },{im({9600m})});
  431.     SNDMSG({nyuryo_f.snd});
  432.     footnote({ATコマンドを設定して下さい});
  433.     %a    @input(    {ATコマンドを設定して下さい\n}|
  434.             { （例）ATX3\N3\V1\Q3\J0},,
  435.             {AT}|@head(modem,{/}));
  436.     case    (a<>{},
  437.         {Yes},    {case    (@getchar(a,1,2),
  438.                 {AT},    {case    ( a = @head(a,{\}),
  439.                     {Yes},    {modem:=@getchar(a,3,999)|{/}|
  440.                         @getchar(a,3,999)|
  441.                         {/AT直接指定_}|TYPE;},,
  442.                             {modem:=@getchar(a,3,999)|{/}|
  443.                         {/AT直接指定_}|TYPE;});});},
  444.         {No},setAT);
  445. };
  446. %FUJITSU{
  447.     %Modem    {case    (modem,
  448.             {},    {im({未設定})},,
  449.                 {head(@tail(modem,{/}),{_})})};
  450.     SNDMSG({erande_f.snd});
  451.     footnote({モデムの機種を選択して下さい});
  452.     select({モデムの機種を選択して下さい  現在は }|@Modem|{ です},
  453.         99999,,
  454.         {内蔵1200},{modem:={X3//内蔵1200_1200n}},
  455.         {内蔵2400},{modem:={X3/\N3\V1\Q3\J0%C0/内蔵2400_9600m}},
  456.         {富士通 PM1200F},{modem:={X3//PM1200F_1200n}},
  457.         {富士通 PM2400F},{modem:={X3/\N3\V1\Q3\J0%C0/PM2400F_9600m}},
  458.         {富士通 PM2400FII},
  459.             {modem:={X3/\N7\V1\Q3\J0\V2%C0/PM2400FII_9600m}},
  460.         {富士通 OAMD-301},{modem:={X3&D2/\N3\Q3\J0\V2/OAMD-301_9600m}},
  461.         {ATコマンド直設定 },setAT,
  462.         {変更しない},)
  463. };
  464. %AIWA{
  465.     %Modem    {case    (modem,
  466.             {},    {im({未設定})},,
  467.                 {head(@tail(modem,{/}),{_})})};
  468.     SNDMSG({erande_f.snd});
  469.     footnote({モデムの機種を選択して下さい});
  470.     select({モデムの機種を選択して下さい  現在は }|@Modem|{ です},
  471.         99999,,
  472.         {AIWA PV-A1200},{modem:={X3//PV-A1200_1200n}},
  473.         {AIWA PV-A2400},{modem:={X3//PV-A2400_2400n}},
  474.         {AIWA PV-A2400MNP4},{modem:={&D2/&M4\Q1/PV-A2400MNP4_9600m}},
  475.         {AIWA PV-A24MNP5},{modem:={X3&D2/\N3\Q3\J0/PV-A24MNP5_9600m}},
  476.         {AIWA PV-A24V42},{modem:={X3&D2/\N3\Q3\J0/PV-A24V42_9600m}},
  477.         {AIWA PV-M24},{modem:={X3&D2/\N3\Q3\J0\V2/PV-M24_9600m}},
  478.         {AIWA PV-M24M5},{modem:={X3&D2/\N3\Q3\J0\V2/PV-M24M5_9600m}},
  479.         {AIWA PV-M24B5},{modem:={X3&D2/\N3\Q3\J0\V2%C0/PV-M24B5_9600m}},
  480.         {AIWA PV-A96V5},{MODEM:={X3&D2/\N3\Q3\J0\V2%C0/PV-A96V5_9600m}},
  481.         {ATコマンド直設定 },setAT,
  482.         {変更しない},)
  483. };
  484. %OMRON{
  485.     %Modem    {case    (modem,
  486.             {},    {im({未設定})},,
  487.                 {head(@tail(modem,{/}),{_})})};
  488.     SNDMSG({erande_f.snd});
  489.     footnote({モデムの機種を選択して下さい});
  490.     select({モデムの機種を選択して下さい  現在は }|@Modem|{ です},
  491.         99999,,
  492.         {OMRON MD1200},{modem:={X3//MD1200_1200n}},
  493.         {OMRON MD12FS},{modem:={X3//MD12FS_1200n}},
  494.         {OMRON MD2400F},{modem:={X3/\N3\V1\Q2\J0/MD2400F_2400m}},
  495.         {OMRON MD24FB5V},{modem:={X3/\N3\Q2\J0\V2%C0/MD24FB5V_9600m}},
  496.         {OMRON MD24FP4},{modem:={X3/\N3\Q2\J0/MD24FP4_2400m}},
  497.         {OMRON MD24FP4II},{modem:={X3&P2/\N3\Q2\J0/MD24FP4II_9600m}},
  498.         {OMRON MD24FP5V},{modem:={X3/\N3\Q2\J0\V2%C0/MD24FP5V_9600m}},
  499.         {OMRON MD24FS4},{modem:={X3/\N3\Q2\J0/MD24FS4_2400m}},
  500.         {OMRON MD24FS5},{modem:={X3/\N3\Q2\J0/MD24FS5_2400m}},
  501.         {OMRON MD24FS7},{modem:={X3/\N3\Q2\J0/MD24FS7_2400m}},
  502.         {ATコマンド直設定 },setAT,
  503.         {変更しない},)
  504. };
  505. %EPSON{
  506.     %Modem    {case    (modem,
  507.             {},    {im({未設定})},,
  508.                 {head(@tail(modem,{/}),{_})})};
  509.     SNDMSG({erande_f.snd});
  510.     footnote({モデムの機種を選択して下さい});
  511.     select({モデムの機種を選択して下さい  現在は }|@Modem|{ です},
  512.         99999,,
  513.         {EPSON SR-120S},{modem:={X3//SR-120S_1200n}},
  514.         {EPSON SR-240AT},{modem:={X3//SR-240AT_2400n}},
  515.         {EPSON SR-240V},{modem:={X3\V2/N1&K1%C0/SR-240V_9600m}},
  516.         {ATコマンド直設定 },setAT,
  517.         {変更しない},)
  518. };
  519. %NEC{
  520.     %Modem    {case    (modem,
  521.             {},    {im({未設定})},,
  522.                 {head(@tail(modem,{/}),{_})})};
  523.     SNDMSG({erande_f.snd});
  524.     footnote({モデムの機種を選択して下さい});
  525.     select({モデムの機種を選択して下さい  現在は }|@Modem|{ です},
  526.         99999,,
  527.         {NEC COMSTAR 2424},{modem:={X3/\N3\Q2/COMSTAR 2424_2400m}},
  528.         {ATコマンド直設定 },setAT,
  529.         {変更しない},)
  530. };
  531. %SONY{
  532.     %Modem    {case    (modem,
  533.             {},    {im({未設定})},,
  534.                 {head(@tail(modem,{/}),{_})})};
  535.     SNDMSG({erande_f.snd});
  536.     footnote({モデムの機種を選択して下さい});
  537.     select({モデムの機種を選択して下さい  現在は }|@Modem|{ です},
  538.         99999,,
  539.         {SONY IT-V1200},{modem:={X3//IT-V1200_1200n}},
  540.         {ATコマンド直設定 },setAT,
  541.         {変更しない},)
  542. };
  543. %MICROCORE{
  544.     %Modem    {case    (modem,
  545.             {},    {im({未設定})},,
  546.                 {head(@tail(modem,{/}),{_})})};
  547.     SNDMSG({erande_f.snd});
  548.     footnote({モデムの機種を選択して下さい});
  549.     select({モデムの機種を選択して下さい  現在は }|@Modem|{ です},
  550.         99999,,
  551.     {MICROCORE MS24PA5},{modem:={X3/\N3\Q2\J0\X1%C0/MC24PA5_9600m}},
  552.     {ATコマンド直設定 },setAT,
  553.     {変更しない},);
  554. };
  555. %SETMODEM{
  556.     %Modem    {case    (modem,
  557.             {},    {im({未設定})},,
  558.                 {head(@tail(modem,{/}),{_})})};
  559.     SNDMSG({erande_f.snd});
  560.     footnote({モデムのメーカーを選択して下さい});
  561.     select({モデムのメーカーを選択して下さい},
  562.         99999,,
  563.         {  ＦＵＪＩＴＳＵ  },FUJITSU,
  564.         {     ＡＩＷＡ     },AIWA,
  565.         {    ＯＭＲＯＮ    },OMRON,
  566.         {    ＥＰＳＯＮ    },EPSON,
  567.         {      ＮＥＣ      },NEC,
  568.         {     ＳＯＮＹ     },SONY,
  569.         {   マイクロコア   },MICROCORE,
  570.         { ATコマンド直設定 },setAT);
  571. };
  572.  
  573. /*    設定情報をファイルに保存する    */
  574. %writeSET{
  575.     setcdir(DIR1);
  576.     dispoff({Yes});
  577.     command({copy }|SETFILE|{ PVAPSET.BAK});
  578.     delfile(SETFILE);
  579.     dispoff({No});
  580.     write    (SETFILE,
  581.         {ID       :=}|@xc({7b})|ID    |@xc({7d})|{;\n}|
  582.         {PASS     :=}|@xc({7b})|PASS    |@xc({7d})|{;\n}|
  583.         {AP       :=}|@xc({7b})|AP    |@xc({7d})|{;\n}|
  584.         {AP2      :=}|@xc({7b})|AP2    |@xc({7d})|{;\n}|
  585.         {AP3      :=}|@xc({7b})|AP3    |@xc({7d})|{;\n}|
  586.         {TEL      :=}|@xc({7b})|TEL    |@xc({7d})|{;\n}|
  587.         {MODEM    :=}|@xc({7b})|MODEM    |@xc({7d})|{;\n}|
  588.         {SAVE     :=}|@xc({7b})|SAVE    |@xc({7d})|{;\n}|
  589.         {SAVE2    :=}|@xc({7b})|SAVE2    |@xc({7d})|{;\n}|
  590.         {LIST     :=}|@xc({7b})|LIST    |@xc({7d})|{;\n}|
  591.         {UPDOWN   :=}|@xc({7b})|UPDOWN    |@xc({7d})|{;\n});
  592.     write    (SETFILE,
  593.         {BILLCHK  :=}|@xc({7b})|BILLCHK |@xc({7d})|{;\n}|
  594.         {PRESER   :=}|@xc({7b})|PRESER    |@xc({7d})|{;\n}|
  595.         {ACCEAP   :=}|@xc({7b})|ACCEAP    |@xc({7d})|{;\n}|
  596.         {REDIAL   :=}|@xc({7b})|REDIAL    |@xc({7d})|{;\n}|
  597.         {CALAMI   :=}|@xc({7b})|CALAMI    |@xc({7d})|{;\n}|
  598.         {LOGPATH  :=}|@xc({7b})|LOGPATH    |@xc({7d})|{;\n}|
  599.         {TEMPPATH :=}|@xc({7b})|TEMPPATH|@xc({7d})|{;\n}|
  600.         {DIR2     :=}|@xc({7b})|DIR2    |@xc({7d})|{;\n}|
  601.         {TITLEPATH:=}|@xc({7b})|TITLEPATH|@xc({7d})|{;\n}|
  602.         {SOUND    :=}|@xc({7b})|SOUND    |@xc({7d})|{;\n}|
  603.         {VBELL    :=}|@xc({7b})|VBELL    |@xc({7d})|{;\n}|
  604.         {BELFIL   :=}|@xc({7b})|BELFIL    |@xc({7d})|{;\n});
  605.     write    (SETFILE,
  606.         {FMGR     :=}|@xc({7b})|FMGR    |@xc({7d})|{;\n}|
  607.         {r        :=}|@xc({7b})|r    |@xc({7d})|{;\n}|
  608.         {g        :=}|@xc({7b})|g    |@xc({7d})|{;\n}|
  609.         {b        :=}|@xc({7b})|b    |@xc({7d})|{;\n});
  610.     SETFILE1:={標準設定};
  611. };
  612.  
  613. /*    設定情報を元に戻す    */
  614. %CANCEL{
  615.     SNDMSG({kaknin_f.snd});
  616.     footnote({本当に元に戻してもいいですか？});
  617.     select({本当に元に戻してもいいですか？},
  618.         99999,,
  619.         { Ｏ Ｋ },{case    (@filechk(SETFILE),
  620.                 {Yes},    {setcdir(DIR1);
  621.                     #PVAPSET.SET;
  622.                     init;
  623.                     SETFILE1:={標準設定};})},
  624.         { Ｎ Ｇ },);
  625. };
  626.  
  627. /*    設定情報をファイルに保存する    */
  628. %FSAVE{
  629.     var newfile[64];
  630.     SNDMSG({nyuryo_f.snd});
  631.     footnote({設定情報を保存するファイルを指定して下さい});
  632.     newfile:=@filesel({USR});
  633.     case    (newfile<>{},
  634.         {Yes},    {%newdir @getcdir;
  635.             case    (@nochar(newdir)==3,
  636.                 {Yes},    {newfile:=newdir|newfile},
  637.                 {No},    {newfile:=newdir|{\}|newfile});
  638.             delfile(newfile);
  639.             write(newfile,
  640.             {ID       :=}|@xc({7b})|ID    |@xc({7d})|{;\n}|
  641.             {PASS     :=}|@xc({7b})|PASS    |@xc({7d})|{;\n}|
  642.             {AP       :=}|@xc({7b})|AP    |@xc({7d})|{;\n}|
  643.             {AP2      :=}|@xc({7b})|AP2    |@xc({7d})|{;\n}|
  644.             {AP3      :=}|@xc({7b})|AP3    |@xc({7d})|{;\n}|
  645.             {TEL      :=}|@xc({7b})|TEL    |@xc({7d})|{;\n}|
  646.             {MODEM    :=}|@xc({7b})|MODEM    |@xc({7d})|{;\n}|
  647.             {SAVE     :=}|@xc({7b})|SAVE    |@xc({7d})|{;\n}|
  648.             {SAVE2    :=}|@xc({7b})|SAVE2    |@xc({7d})|{;\n}|
  649.             {LIST     :=}|@xc({7b})|LIST    |@xc({7d})|{;\n}|
  650.             {UPDOWN   :=}|@xc({7b})|UPDOWN    |@xc({7d})|{;\n});
  651.             write(newfile,
  652.             {BILLCHK  :=}|@xc({7b})|BILLCHK |@xc({7d})|{;\n}|
  653.             {PRESER   :=}|@xc({7b})|PRESER    |@xc({7d})|{;\n}|
  654.             {ACCEAP   :=}|@xc({7b})|ACCEAP    |@xc({7d})|{;\n}|
  655.             {REDIAL   :=}|@xc({7b})|REDIAL    |@xc({7d})|{;\n}|
  656.             {CALAMI   :=}|@xc({7b})|CALAMI    |@xc({7d})|{;\n}|
  657.             {LOGPATH  :=}|@xc({7b})|LOGPATH    |@xc({7d})|{;\n}|
  658.             {TEMPPATH :=}|@xc({7b})|TEMPPATH|@xc({7d})|{;\n}|
  659.             {DIR2     :=}|@xc({7b})|DIR2    |@xc({7d})|{;\n}|
  660.             {TITLEPATH:=}|@xc({7b})|TITLEPATH|@xc({7d})|{;\n}|
  661.             {SOUND    :=}|@xc({7b})|SOUND    |@xc({7d})|{;\n}|
  662.             {VBELL    :=}|@xc({7b})|VBELL    |@xc({7d})|{;\n}|
  663.             {BELFIL   :=}|@xc({7b})|BELFIL    |@xc({7d})|{;\n});
  664.             write(newfile,
  665.             {FMGR     :=}|@xc({7b})|FMGR    |@xc({7d})|{;\n}|
  666.             {r        :=}|@xc({7b})|r    |@xc({7d})|{;\n}|
  667.             {g        :=}|@xc({7b})|g    |@xc({7d})|{;\n}|
  668.             {b        :=}|@xc({7b})|b    |@xc({7d})|{;\n});
  669.     });
  670.     setcdir(DIR1);
  671. };
  672.  
  673. /*    ファイルから設定情報を読み込む    */
  674. %FLOAD{
  675.     var newfile[64];
  676.     SNDMSG({nyuryo_f.snd});
  677.     footnote({設定情報を読み込むファイルを指定して下さい});
  678.     newfile:=@filesel({USR});
  679.     case    (newfile<>{},
  680.         {Yes},    {%newdir @getcdir;
  681.             case    (@nochar(newdir)==3,
  682.                 {Yes},    {newfile:=newdir|newfile},
  683.                 {No},    {newfile:=newdir|{\}|newfile});
  684.             case    (@filechk(newfile),
  685.                 {Yes},    {%ExcPilot {#}|newfile;
  686.                     ExcPilot;
  687.                     init;
  688.                     SETFILE1:=@tail(newfile,{\});});});
  689.     setcdir(DIR1);
  690. };
  691.  
  692. /*    実行    */
  693. USERSET;
  694.